﻿Imports DAO
Imports DTO

Public Class PhieuThuTien_BUS
    Public Shared Function LayCMND() As DataTable
        Dim dt As New DataTable
        dt = PhieuThuTien_DAO.LayCMND()
        Return dt
    End Function

    Public Shared Function LayKhachHang(ByVal cmnd As String) As DataTable
        Dim dt As New DataTable
        dt = PhieuThuTien_DAO.LayKhachHang(cmnd)
        Return dt
    End Function

    Public Shadows Function NhapPhieuThu(ByVal PhieuThu As PhieuThu_DTO) As Integer
        Dim flag As Integer = PhieuThuTien_DAO.NhapPhieuThu(PhieuThu)
        Return flag
    End Function

#Region "Load danh sách phiếu thu"
    Public Shared Function LoadPhieuThu() As DataTable
        Return PhieuThuTien_DAO.LoadPhieuThu()
    End Function
#End Region
End Class
